inherited fmSkladDoc: TfmSkladDoc
  Left = 465
  Top = 199
  Width = 989
  Height = 717
  Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103' '#1089#1082#1083#1072#1076#1089#1082#1080#1093' '#1088#1072#1089#1087#1080#1089#1086#1082
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 656
    Width = 981
  end
  inherited Panel1: TPanel
    Width = 981
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 811
    end
    inherited BitBtn2: TBitBtn
      Left = 899
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 45
    Width = 981
    Height = 611
    Align = alClient
    TabOrder = 4
    object cxSplitter1: TcxSplitter
      Left = 488
      Top = 1
      Width = 8
      Height = 609
      HotZoneClassName = 'TcxMediaPlayer9Style'
      Control = Panel3
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 487
      Height = 609
      Align = alLeft
      BevelOuter = bvNone
      Caption = 'Panel3'
      TabOrder = 1
      object dbgRaspiska: TcxGrid
        Left = 0
        Top = 41
        Width = 487
        Height = 568
        Align = alClient
        Constraints.MinWidth = 487
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        LookAndFeel.Kind = lfStandard
        LookAndFeel.SkinName = 'Office2007Silver'
        object tvRaspiska: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.Insert.Visible = True
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = True
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          OnCellDblClick = tvRaspiskaCellDblClick
          DataController.DataSource = dlgDS
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Kind = skCount
              FieldName = 'SKLADID'
              Column = tvRaspiskaSKLADID
            end>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.CellHints = True
          OptionsCustomize.ColumnFiltering = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.CellEndEllipsis = True
          OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.HeaderEndEllipsis = True
          OptionsView.Indicator = True
          Preview.Visible = True
          Styles.Header = DMInv.cxSiniyText
          object tvRaspiskaSKLADID: TcxGridDBColumn
            Caption = 'ID'
            DataBinding.FieldName = 'SKLADID'
            Width = 28
          end
          object tvRaspiskaFIO_PPID: TcxGridDBColumn
            Caption = #1048#1089#1090#1086#1095#1085#1080#1082
            DataBinding.FieldName = 'FIO_PPID'
            Width = 74
          end
          object tvRaspiskaFIO_PPID_TO: TcxGridDBColumn
            Caption = #1055#1088#1080#1077#1084#1097#1080#1082
            DataBinding.FieldName = 'FIO_PPID_TO'
            Width = 79
          end
          object tvRaspiskaSDATE: TcxGridDBColumn
            Caption = #1044#1072#1090#1072
            DataBinding.FieldName = 'SDATE'
            Width = 43
          end
          object tvRaspiskaSNOTE: TcxGridDBColumn
            Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
            DataBinding.FieldName = 'SNOTE'
            Width = 100
          end
          object tvRaspiskaSUSERENTER: TcxGridDBColumn
            Caption = #1040#1074#1090#1086#1088
            DataBinding.FieldName = 'SUSERENTER'
            Width = 50
          end
          object tvRaspiskaSTIMEENTER: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
            DataBinding.FieldName = 'STIMEENTER'
            Width = 113
          end
          object tvRaspiskaSUSEREDIT: TcxGridDBColumn
            Caption = #1056#1077#1076#1072#1082#1090#1086#1088
            DataBinding.FieldName = 'SUSEREDIT'
            Width = 75
          end
          object tvRaspiskaSTIMEEDIT: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1088#1077#1076'.'
            DataBinding.FieldName = 'STIMEEDIT'
            Width = 79
          end
          object tvRaspiskaSIDFILENAME: TcxGridDBColumn
            Caption = #1060#1072#1081#1083
            DataBinding.FieldName = 'SIDFILENAME'
            Width = 31
          end
        end
        object cxGridLevel1: TcxGridLevel
          GridView = tvRaspiska
        end
      end
      object dxBarDockControl1: TdxBarDockControl
        Left = 0
        Top = 15
        Width = 487
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
      object cxLabel1: TcxLabel
        Left = 0
        Top = 0
        Align = alTop
        Caption = #1056#1072#1089#1087#1080#1089#1082#1080
        Style.LookAndFeel.SkinName = 'Blue'
        StyleDisabled.LookAndFeel.SkinName = 'Blue'
        StyleFocused.LookAndFeel.SkinName = 'Blue'
        StyleHot.LookAndFeel.SkinName = 'Blue'
        Properties.Alignment.Horz = taLeftJustify
      end
    end
    object Panel4: TPanel
      Left = 496
      Top = 1
      Width = 484
      Height = 609
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel3'
      TabOrder = 2
      object dbgTovar: TcxGrid
        Left = 0
        Top = 41
        Width = 484
        Height = 568
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        LookAndFeel.Kind = lfStandard
        LookAndFeel.SkinName = 'Office2007Silver'
        object tvTovar: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.Insert.Visible = True
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = True
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          DataController.DataSource = dsST
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Kind = skCount
              FieldName = 'STID'
              Column = tvTovarSTID
            end>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.CellHints = True
          OptionsCustomize.ColumnFiltering = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.CellEndEllipsis = True
          OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.HeaderEndEllipsis = True
          OptionsView.Indicator = True
          Preview.Visible = True
          Styles.Header = DMInv.cxSiniyText
          object tvTovarSTID: TcxGridDBColumn
            Caption = 'ID'
            DataBinding.FieldName = 'STID'
            Width = 23
          end
          object tvTovarTOVAR: TcxGridDBColumn
            Caption = #1058#1086#1074#1072#1088
            DataBinding.FieldName = 'TOVAR'
            Width = 40
          end
          object tvTovarED_IZM: TcxGridDBColumn
            Caption = #1045#1076'. '#1080#1079#1084#1077#1088'.'
            DataBinding.FieldName = 'ED_IZM'
            Width = 66
          end
          object tvTovarVESORV: TcxGridDBColumn
            Caption = #1042#1077#1089'/V'
            DataBinding.FieldName = 'VESORV'
            Width = 36
          end
          object tvTovarSTKOL: TcxGridDBColumn
            Caption = #1050#1086#1083#1080#1095'.'
            DataBinding.FieldName = 'STKOL'
            Width = 46
          end
          object tvTovarSDATEPROIZV: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1080#1079#1075#1086#1090#1086#1074#1083'.'
            DataBinding.FieldName = 'SDATEPROIZV'
            Width = 95
          end
          object tvTovarSDATEGODEN: TcxGridDBColumn
            Caption = #1043#1086#1076#1077#1085' '#1076#1086
            DataBinding.FieldName = 'SDATEGODEN'
            Width = 60
          end
          object tvTovarSTNOTE: TcxGridDBColumn
            Caption = #1050#1086#1084#1084#1077#1085#1090'.'
            DataBinding.FieldName = 'STNOTE'
            Width = 59
          end
          object tvTovarSTUSERENTER: TcxGridDBColumn
            Caption = #1040#1074#1090#1086#1088
            DataBinding.FieldName = 'STUSERENTER'
            Width = 41
          end
          object tvTovarSTTIMEENTER: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'.'
            DataBinding.FieldName = 'STTIMEENTER'
            Width = 69
          end
          object tvTovarSTUSEREDIT: TcxGridDBColumn
            Caption = #1056#1077#1076#1072#1082#1090#1086#1088
            DataBinding.FieldName = 'STUSEREDIT'
            Width = 62
          end
          object tvTovarSTTIMEEDIT: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090'.'
            DataBinding.FieldName = 'STTIMEEDIT'
            Width = 75
          end
        end
        object cxGridLevel2: TcxGridLevel
          GridView = tvTovar
        end
      end
      object cxLabel3: TcxLabel
        Left = 0
        Top = 0
        Align = alTop
        Caption = #1058#1086#1074#1072#1088#1099
        Style.LookAndFeel.SkinName = 'Blue'
        StyleDisabled.LookAndFeel.SkinName = 'Blue'
        StyleFocused.LookAndFeel.SkinName = 'Blue'
        StyleHot.LookAndFeel.SkinName = 'Blue'
        Properties.Alignment.Horz = taLeftJustify
      end
      object dxBarDockControl3: TdxBarDockControl
        Left = 0
        Top = 15
        Width = 484
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qSklad
    Left = 240
    Top = 160
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    AlwaysSaveText = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    LookAndFeel.Kind = lfFlat
    LookAndFeel.NativeStyle = False
    LookAndFeel.SkinName = 'Office2007Silver'
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    PopupMenuLinks = <>
    ShowHint = False
    UseF10ForMenu = False
    UseSystemFont = True
    Left = 192
    Top = 159
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 1'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 409
      FloatTop = 163
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton5'
        end
        item
          Visible = True
          ItemName = 'dxBarButton6'
        end
        item
          Visible = True
          ItemName = 'dxBarButton7'
        end
        item
          Visible = True
          ItemName = 'dxBarButton10'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarManager1Bar3: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 3'
      CaptionButtons = <>
      DockControl = dxBarDockControl3
      DockedDockControl = dxBarDockControl3
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 416
      FloatTop = 194
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton9'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarButton1: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 57
    end
    object dxBarButton2: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 41
    end
    object dxBarButton3: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 10
    end
    object bbnewjl: TdxBarButton
      Caption = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Category = 0
      Hint = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Visible = ivNever
      ImageIndex = 40
      PaintStyle = psCaptionGlyph
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
    end
    object bbadd: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 57
    end
    object bbedit: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
    end
    object bbdel: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 10
    end
    object cbShowDoc: TcxBarEditItem
      Caption = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Category = 0
      Hint = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Visible = ivAlways
      ShowCaption = True
      Width = 100
      PropertiesClassName = 'TcxCheckBoxProperties'
      Properties.Alignment = taLeftJustify
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      InternalEditValue = 1
    end
    object bbRegRashDoc: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 56
    end
    object dxBarSubItem1: TdxBarSubItem
      Caption = 'New SubItem'
      Category = 0
      Visible = ivAlways
      ItemLinks = <>
    end
    object dxBarButton5: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 57
      OnClick = dxBarButton5Click
    end
    object dxBarButton6: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
      OnClick = dxBarButton6Click
    end
    object dxBarButton7: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 10
      OnClick = dxBarButton7Click
    end
    object bbColumn: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton8: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton9: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 17
      OnClick = dxBarButton9Click
    end
    object dxBarButton10: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 17
      OnClick = dxBarButton10Click
    end
  end
  object qSklad: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT s.*, sid.SIDFILENAME,'
      
        '(COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,'#39' '#39')||'#39' '#39'||COA' +
        'LESCE(P.PPATRONYMIC,'#39' '#39')) AS fio_ppid,'
      
        '(COALESCE(P1.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P1.PNAME,'#39' '#39')||'#39' '#39'||C' +
        'OALESCE(P1.PPATRONYMIC,'#39' '#39')) AS fio_ppid_to'
      'FROM SKLAD s'
      'INNER JOIN PERSON_PODOTCH PP ON PP.PPID = s.PPID'
      'INNER JOIN PEOPLE P ON P.PID = PP.PP_ID'
      'INNER JOIN PERSON_PODOTCH PP1 ON PP1.PPID = s.PPID_TO'
      'INNER JOIN PEOPLE P1 ON P1.PID = PP1.PP_ID'
      'LEFT OUTER JOIN SCAN_INDOC SID ON sid.SIDID = s.SIDID'
      'WHERE s.SISDELETE IS NULL'
      '')
    UpdateObject = quSklad
    GeneratorField.Field = 'SKLADID'
    GeneratorField.Generator = 'GEN_SKLAD_ID'
    Left = 280
    Top = 160
    object qSkladSKLADID: TIntegerField
      FieldName = 'SKLADID'
      Origin = '"SKLAD"."SKLADID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qSkladPPID: TIntegerField
      FieldName = 'PPID'
      Origin = '"SKLAD"."PPID"'
    end
    object qSkladPPID_TO: TIntegerField
      FieldName = 'PPID_TO'
      Origin = '"SKLAD"."PPID_TO"'
    end
    object qSkladSDATE: TDateTimeField
      FieldName = 'SDATE'
      Origin = '"SKLAD"."SDATE"'
    end
    object qSkladSIDID: TIntegerField
      FieldName = 'SIDID'
      Origin = '"SKLAD"."SIDID"'
    end
    object qSkladSNOTE: TIBStringField
      FieldName = 'SNOTE'
      Origin = '"SKLAD"."SNOTE"'
      Size = 255
    end
    object qSkladSUSERENTER: TIBStringField
      FieldName = 'SUSERENTER'
      Origin = '"SKLAD"."SUSERENTER"'
      Size = 40
    end
    object qSkladSTIMEENTER: TDateTimeField
      FieldName = 'STIMEENTER'
      Origin = '"SKLAD"."STIMEENTER"'
    end
    object qSkladSUSEREDIT: TIBStringField
      FieldName = 'SUSEREDIT'
      Origin = '"SKLAD"."SUSEREDIT"'
      Size = 40
    end
    object qSkladSTIMEEDIT: TDateTimeField
      FieldName = 'STIMEEDIT'
      Origin = '"SKLAD"."STIMEEDIT"'
    end
    object qSkladSISDELETE: TIntegerField
      FieldName = 'SISDELETE'
      Origin = '"SKLAD"."SISDELETE"'
    end
    object qSkladSIDFILENAME: TIBStringField
      FieldName = 'SIDFILENAME'
      Origin = '"SCAN_INDOC"."SIDFILENAME"'
      Size = 255
    end
    object qSkladFIO_PPID: TIBStringField
      FieldName = 'FIO_PPID'
      ProviderFlags = []
      Size = 767
    end
    object qSkladFIO_PPID_TO: TIBStringField
      FieldName = 'FIO_PPID_TO'
      ProviderFlags = []
      Size = 767
    end
  end
  object quSklad: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  SKLADID,'
      '  PPID,'
      '  PPID_TO,'
      '  SDATE,'
      '  SIDID,'
      '  SNOTE,'
      '  SUSERENTER,'
      '  STIMEENTER,'
      '  SUSEREDIT,'
      '  STIMEEDIT,'
      '  SISDELETE,'
      '  SIDFILENAME'
      'from SKLAD '
      'where'
      '  SKLADID = :SKLADID')
    ModifySQL.Strings = (
      'update SKLAD'
      'set'
      '  PPID = :PPID,'
      '  PPID_TO = :PPID_TO,'
      '  SDATE = :SDATE,'
      '  SIDID = :SIDID,'
      '  SISDELETE = :SISDELETE,'
      '  SKLADID = :SKLADID,'
      '  SNOTE = :SNOTE'
      'where'
      '  SKLADID = :OLD_SKLADID')
    InsertSQL.Strings = (
      'insert into SKLAD'
      '  (PPID, PPID_TO, SDATE, SIDID, SISDELETE, SKLADID, SNOTE)'
      'values'
      '  (:PPID, :PPID_TO, :SDATE, :SIDID, :SISDELETE, :SKLADID, '
      '   :SNOTE)')
    DeleteSQL.Strings = (
      'update SKLAD'
      'set'
      '  SISDELETE = 1'
      'where'
      '  SKLADID = :OLD_SKLADID'
      '')
    Left = 320
    Top = 160
  end
  object dsST: TDataSource
    DataSet = qSklad_tovar
    Left = 216
    Top = 416
  end
  object qSklad_tovar: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qSklad_tovarAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT st.*, SD.SDNAME AS tovar, SD1.SDNAME AS ed_izm'
      'FROM SKLAD_TOVAR st'
      'INNER JOIN SYS_DIC SD ON SD.SDID = st.STSDIDTOVAR'
      'left outer JOIN SYS_DIC SD1 ON SD1.SDID = st.SDID_ED_IZM'
      'WHERE st.StISDELETE IS NULL AND st.SKLADID = :SKLADID'
      ''
      '')
    UpdateObject = quST
    GeneratorField.Field = 'STID'
    GeneratorField.Generator = 'GEN_SKLAD_TOVAR_ID'
    Left = 248
    Top = 416
    ParamData = <
      item
        DataType = ftInteger
        Name = 'SKLADID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qSklad_tovarSTID: TIntegerField
      FieldName = 'STID'
      Origin = '"SKLAD_TOVAR"."STID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qSklad_tovarSKLADID: TIntegerField
      FieldName = 'SKLADID'
      Origin = '"SKLAD_TOVAR"."SKLADID"'
    end
    object qSklad_tovarSDID_ED_IZM: TIntegerField
      FieldName = 'SDID_ED_IZM'
      Origin = '"SKLAD_TOVAR"."SDID_ED_IZM"'
    end
    object qSklad_tovarSTSDID_TYPE: TIntegerField
      FieldName = 'STSDID_TYPE'
      Origin = '"SKLAD_TOVAR"."STSDID_TYPE"'
    end
    object qSklad_tovarVESORV: TIBBCDField
      FieldName = 'VESORV'
      Origin = '"SKLAD_TOVAR"."VESORV"'
      Precision = 18
      Size = 2
    end
    object qSklad_tovarSTKOL: TIntegerField
      FieldName = 'STKOL'
      Origin = '"SKLAD_TOVAR"."STKOL"'
    end
    object qSklad_tovarSTNOTE: TIBStringField
      FieldName = 'STNOTE'
      Origin = '"SKLAD_TOVAR"."STNOTE"'
      Size = 255
    end
    object qSklad_tovarSTUSERENTER: TIBStringField
      FieldName = 'STUSERENTER'
      Origin = '"SKLAD_TOVAR"."STUSERENTER"'
      Size = 40
    end
    object qSklad_tovarSTTIMEENTER: TDateTimeField
      FieldName = 'STTIMEENTER'
      Origin = '"SKLAD_TOVAR"."STTIMEENTER"'
    end
    object qSklad_tovarSTUSEREDIT: TIBStringField
      FieldName = 'STUSEREDIT'
      Origin = '"SKLAD_TOVAR"."STUSEREDIT"'
      Size = 40
    end
    object qSklad_tovarSTTIMEEDIT: TDateTimeField
      FieldName = 'STTIMEEDIT'
      Origin = '"SKLAD_TOVAR"."STTIMEEDIT"'
    end
    object qSklad_tovarSTISDELETE: TIntegerField
      FieldName = 'STISDELETE'
      Origin = '"SKLAD_TOVAR"."STISDELETE"'
    end
    object qSklad_tovarED_IZM: TIBStringField
      FieldName = 'ED_IZM'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qSklad_tovarSTSDIDTOVAR: TIntegerField
      FieldName = 'STSDIDTOVAR'
      Origin = '"SKLAD_TOVAR"."STSDIDTOVAR"'
    end
    object qSklad_tovarTOVAR: TIBStringField
      FieldName = 'TOVAR'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qSklad_tovarSDATEPROIZV: TDateField
      FieldName = 'SDATEPROIZV'
      Origin = '"SKLAD_TOVAR"."SDATEPROIZV"'
    end
    object qSklad_tovarSDATEGODEN: TDateField
      FieldName = 'SDATEGODEN'
      Origin = '"SKLAD_TOVAR"."SDATEGODEN"'
    end
  end
  object quST: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  STID,'
      '  SKLADID,'
      '  STSDIDTOVAR,'
      '  SDID_ED_IZM,'
      '  STSDID_TYPE,'
      '  VESORV,'
      '  STKOL,'
      '  STNOTE,'
      '  STUSERENTER,'
      '  STTIMEENTER,'
      '  STUSEREDIT,'
      '  STTIMEEDIT,'
      '  STISDELETE,'
      '  TOVAR,'
      '  ED_IZM'
      'from SKLAD_TOVAR '
      'where'
      '  STID = :STID')
    ModifySQL.Strings = (
      'update SKLAD_TOVAR'
      'set'
      '  SDID_ED_IZM = :SDID_ED_IZM,'
      '  SKLADID = :SKLADID,'
      '  STID = :STID,'
      '  STISDELETE = :STISDELETE,'
      '  STKOL = :STKOL,'
      '  STNOTE = :STNOTE,'
      '  STSDID_TYPE = :STSDID_TYPE,'
      '  STSDIDTOVAR = :STSDIDTOVAR,'
      '  VESORV = :VESORV'
      'where'
      '  STID = :OLD_STID')
    InsertSQL.Strings = (
      'insert into SKLAD_TOVAR'
      
        '  (SDID_ED_IZM, SKLADID, STID, STISDELETE, STKOL, STNOTE, STSDID' +
        '_TYPE, '
      '   STSDIDTOVAR, VESORV)'
      'values'
      
        '  (:SDID_ED_IZM, :SKLADID, :STID, :STISDELETE, :STKOL, :STNOTE, ' +
        ':STSDID_TYPE, '
      '   :STSDIDTOVAR, :VESORV)')
    DeleteSQL.Strings = (
      'update SKLAD_TOVAR'
      'set'
      '  STISDELETE = 1'
      'where'
      '  STID = :OLD_STID')
    Left = 280
    Top = 416
  end
  object cxPropertiesStore1: TcxPropertiesStore
    Components = <
      item
        Component = Panel3
        Properties.Strings = (
          'Height'
          'Left'
          'Top'
          'Width')
      end>
    StorageName = #1048#1057' '#1054#1083#1080#1084#1087#1080#1082'_PS_fmSkladDoc'
    StorageType = stRegistry
    Left = 544
    Top = 216
  end
end
